perm filename CYCOMD.LAP[1,LMM] blob
sn#034825 filedate 1973-04-12 generic text, type T, neo UTF8
(COMMENT GROUP AND LABELLING FUNCTIONS)
(LAP CHECKL SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(MOVEI 4. (QUOTE 0.))
(CALL 4. (E CHECK))
(MOVEM 1. 0. P)
(JUMPE 1. TAG2)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(JUMPE 1. TAG4)
(MOVE 1. 0. P)
(CALL 1. (E NCONS))
(MOVE 2. -1. P)
(CALL 2. (E XCONS))
(MOVE 2. -2. P)
(CALL 2. (E XCONS))
(MOVEI 2. (QUOTE ERROR:))
(CALL 2. (E XCONS))
(MOVEI 2. (QUOTE CHECKL))
(CALL 2. (E XCONS))
(CALL 1. (E PRINT))
(MOVEI 1. (QUOTE NIL))
(JRST 0. TAG3)
TAG4 (HRRZ@ 1. 0. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(CALL 1. (E REVERSE))
(MOVE 2. -1. P)
(CALL 2. (E XCONS))
(MOVE 2. -2. P)
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
TAG5
TAG3 (JRST 0. TAG1)
TAG2 (MOVEI 1. (QUOTE NIL))
TAG7
TAG1 (SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP COMB SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(PUSH P 5.)
(CAIE 5. (QUOTE 0.))
(JRST 0. TAG2)
(EXCH 2. 1.)
(MOVE 1. 3.)
(CALL 2. (E *APPEND))
(MOVE 3. -1. P)
(MOVE 2. 1.)
(MOVE 1. -3. P)
(CALL 3. (E CHECKL))
(JRST 0. TAG1)
TAG2 (CALL 1. (E LENGTH))
(MOVE 2. 5.)
(CALL 2. (E EQUAL))
(JUMPE 1. TAG3)
(MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 2. (E *APPEND))
(MOVE 3. -1. P)
(MOVE 2. -2. P)
(CALL 3. (E CHECKL))
(JRST 0. TAG1)
TAG3 (MOVE 1. -4. P)
(CALL 1. (E LENGTH))
(MOVE 2. 0. P)
(CALL 2. (E *LESS))
(JUMPE 1. TAG4)
(MOVEI 1. (QUOTE NIL))
(JRST 0. TAG1)
TAG4 (MOVE 2. -3. P)
(HLRZ@ 1. -4. P)
(CALL 2. (E CONS))
(PUSH P 1.)
(HRRZ@ 1. -5. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 1. (E SUB1))
(MOVE 5. 1.)
(MOVE 4. -3. P)
(MOVE 3. -4. P)
(MOVE 2. -1. P)
(POP P 1.)
(CALL 5. (E COMBCHECK))
(MOVE 2. -3. P)
(MOVEM 1. 0. P)
(HLRZ@ 1. -5. P)
(CALL 2. (E CONS))
(MOVE 5. -1. P)
(MOVE 4. -2. P)
(MOVE 3. 1.)
(MOVE 2. -4. P)
(HRRZ@ 1. -5. P)
(CALL 5. (E COMBCHECK))
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *APPEND))
TAG5
TAG1 (SUB P (C 0. 0. 5. 5.))
(POPJ P)
NIL
(LAP COMBCHECK SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(PUSH P 5.)
(MOVE 4. 5.)
(MOVE 3. -1. P)
(MOVE 2. -2. P)
(MOVE 1. -3. P)
(CALL 4. (E CHECK))
(MOVEM 1. -1. P)
(JUMPE 1. TAG2)
(HLRZ@ 2. 1.)
(MOVE 1. -4. P)
(CALL 2. (E DIFF))
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(PUSH P 1.)
(HRRZ@ 1. -3. P)
(HLRZ@ 5. 0. P)
(HRRZ@ 4. 1.)
(MOVE 3. -4. P)
(HLRZ@ 2. -3. P)
(EXCH 1. -1. P)
(CALL 5. (E COMB))
(SUB P (C 0. 0. 2. 2.))
(JRST 0. TAG1)
TAG2 (MOVEI 1. (QUOTE NIL))
TAG3
TAG1 (SUB P (C 0. 0. 5. 5.))
(POPJ P)
NIL
(LAP CHECK SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(HRRZ@ 1. 3.)
(PUSH P 1.)
(HLRZ@ 1. 3.)
(MOVEM 1. -2. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -5. P)
(JUMPN 1. TAG14)
(MOVE 2. -3. P)
(MOVE 1. 0. P)
(CALL 2. (E CONS))
(MOVE 2. -4. P)
(CALL 2. (E XCONS))
(MOVE 2. -7. P)
(CALL 2. (E XCONS))
(JRST 0. TAG10)
TAG14 (HLRZ@ 1. -5. P)
(HLRZ@ 1. 1.)
(MOVEM 1. -1. P)
(HLRZ@ 1. -5. P)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(MOVEM 1. -2. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG6)
(MOVE 2. -7. P)
(HLRZ@ 1. 1.)
(CALL 2. (E MEMBER))
(JUMPN 1. TAG7)
(MOVE 2. -6. P)
(HLRZ@ 1. -1. P)
(CALL 2. (E MEMBER))
(JUMPN 1. TAG9)
TAG3 (HLRZ@ 1. -5. P)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(MOVE 1. -2. P)
(CALL 2. (E CONS))
(MOVE 2. -1. P)
(CALL 2. (E XCONS))
(MOVE 2. 0. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG4 (HRRZ@ 1. -5. P)
(MOVEM 1. -5. P)
(JRST 0. TAG1)
TAG5 (CLEARM 1. 0. P)
TAG6 (MOVE 2. -3. P)
(HLRZ@ 1. -5. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(CALL 2. (E CONS))
(MOVEM 1. -3. P)
(JRST 0. TAG4)
TAG7 (MOVE 2. -7. P)
(HLRZ@ 1. -2. P)
(CALL 2. (E MEMBER))
(JUMPN 1. TAG8)
(MOVE 2. -6. P)
(HLRZ@ 1. -2. P)
(CALL 2. (E MEMBER))
(JUMPN 1. TAG11)
(MOVE 1. -4. P)
(CALL 1. (E SUB1))
(MOVEM 1. -4. P)
(CALL 1. (E MINUSP))
(JUMPN 1. TAG11)
(MOVE 2. -7. P)
(HLRZ@ 1. -2. P)
(CALL 2. (E CONS))
(MOVE 2. -5. P)
(MOVEM 1. -7. P)
(MOVE 1. 0. P)
(CALL 2. (E *APPEND))
(MOVEM 1. -5. P)
(HRRZ@ 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -5. P)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(HRRZ@ 1. -2. P)
(CALL 2. (E CONS))
(HRRZ@ 2. -1. P)
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(MOVEM 1. 0. P)
(JRST 0. TAG4)
TAG8 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG2)
TAG9 (MOVE 2. -7. P)
(HLRZ@ 1. -2. P)
(CALL 2. (E MEMBER))
(JUMPN 1. TAG4)
(MOVE 2. -6. P)
(HLRZ@ 1. -2. P)
(CALL 2. (E MEMBER))
(JUMPN 1. TAG8)
(JRST 0. TAG3)
TAG11 (MOVEI 1. (QUOTE NIL))
TAG10 (SUB P (C 0. 0. 8. 8.))
(POPJ P)
NIL
(LAP LLABEL SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 2. TAG9)
(MOVE 2. 3.)
(MOVEI 1. (QUOTE NIL))
(CALL 2. (E CONS))
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(JRST 0. TAG8)
TAG9 (MOVE 3. 0. P)
(HLRZ@ 2. -1. P)
(HLRZ@ 1. -2. P)
(CALL 3. (E LABELM))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -4. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. 1.)
(MOVEM 1. -3. P)
(HRRZ@ 1. 1.)
(HRRZ@ 3. 1.)
(HRRZ@ 2. -6. P)
(HRRZ@ 1. -7. P)
(CALL 3. (E LLABEL))
(MOVEM 1. -1. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 1.)
(HLRZ@ 2. 1.)
(MOVEM 1. -2. P)
(HLRZ@ 1. -3. P)
(CALL 2. (E CONS))
(HRRZ@ 2. -2. P)
(CALL 2. (E CONS))
(MOVE 2. 0. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 0. 0. 5. 5.))
TAG10
TAG8 (SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP LABELM SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 2. TAG9)
(MOVE 2. 3.)
(CALL 2. (E CONS))
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(JRST 0. TAG8)
TAG9 (MOVE 3. 0. P)
(HLRZ@ 2. -1. P)
(MOVE 1. -2. P)
(CALL 3. (E LABEL1))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -4. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. 1.)
(MOVEM 1. -3. P)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. -4. P)
(HRRZ@ 3. 0. P)
(HRRZ@ 2. -7. P)
(HLRZ@ 1. 1.)
(CALL 3. (E LABELM))
(SUB P (C 0. 0. 1. 1.))
(MOVEM 1. -1. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 1.)
(HLRZ@ 2. 1.)
(MOVEM 1. -2. P)
(HLRZ@ 1. -3. P)
(CALL 2. (E CONS))
(HRRZ@ 2. -2. P)
(CALL 2. (E CONS))
(MOVE 2. 0. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 0. 0. 5. 5.))
TAG10
TAG8 (SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP LABEL1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(CAIE 2. (QUOTE 0.))
(JRST 0. TAG5)
(MOVE 2. 3.)
(CALL 2. (E CONS))
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(JRST 0. TAG4)
TAG5 (CALL 1. (E SIZE))
(MOVE 2. -2. P)
(MOVEM 1. 0. P)
(CALL 2. (E EQUAL))
(JUMPE 1. TAG6)
(MOVE 2. -1. P)
(MOVEI 1. (QUOTE NIL))
(CALL 2. (E CONS))
(MOVE 2. -3. P)
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(JRST 0. TAG4)
TAG6 (MOVE 2. 0. P)
(MOVE 1. -2. P)
(CALL 2. (E *GREAT))
(JUMPE 1. TAG7)
(MOVEI 1. (QUOTE NIL))
(JRST 0. TAG4)
TAG7 (MOVE 2. -1. P)
(MOVE 1. -3. P)
(CALL 2. (E CLASSES))
(HRRZ@ 2. 1.)
(MOVEM 1. -3. P)
(JUMPN 2. TAG8)
(MOVE 3. -1. P)
(MOVE 2. -2. P)
(HLRZ@ 1. 1.)
(CALL 3. (E LABEL1C))
(JRST 0. TAG4)
TAG8 (MOVE 3. -1. P)
(MOVE 2. -2. P)
(MOVE 1. -3. P)
(CALL 3. (E LABEL1L))
TAG9
TAG4 (SUB P (C 0. 0. 4. 4.))
(POPJ P)
NIL
(LAP LABEL1L SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 1. TAG20)
(CAIE 2. (QUOTE 0.))
(JRST 0. TAG22)
(MOVE 2. 3.)
(CALL 2. (E CONS))
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(JRST 0. TAG21)
TAG22 (MOVEI 1. (QUOTE NIL))
TAG23
TAG21 (JRST 0. TAG19)
TAG20 (CAIE 2. (QUOTE 0.))
(JRST 0. TAG25)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 1.)
(MOVE 2. -3. P)
(MOVEM 1. -1. P)
(CALL 2. (E COMBINE))
(MOVEM 1. -3. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 0. 0. 3. 3.))
(MOVE 1. 0. P)
(MOVE 2. -1. P)
(CALL 2. (E CONS))
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(SUB P (C 0. 0. 1. 1.))
(JRST 0. TAG19)
TAG25 (HLRZ@ 1. -2. P)
(CALL 1. (E SIZE))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(HRRZ@ 2. -5. P)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG5 (MOVE 2. -1. P)
(JUMPN 2. TAG42)
(JRST 0. TAG8)
TAG42 (HLRZ@ 2. -1. P)
(MOVE 1. 2.)
(MOVEM 2. 0. P)
(CALL 1. (E SIZE))
(MOVE 2. -2. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -2. P)
TAG6
TAG7 (HRRZ@ 2. -1. P)
(MOVEM 2. -1. P)
(JRST 0. TAG5)
TAG8 (MOVE 2. -2. P)
(MOVE 1. -4. P)
(CALL 2. (E *PLUS))
(SUB P (C 0. 0. 3. 3.))
(MOVEM 1. 0. P)
(MOVE 2. -1. P)
(MOVE 1. -3. P)
(CALL 2. (E MIN))
(MOVE 2. -1. P)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 2. (E *DIF))
(MOVE 2. 1.)
(MOVE 1. -4. P)
(CALL 2. (E *DIF))
(MOVE 2. 1.)
(MOVEI 1. (QUOTE 0.))
(CALL 2. (E MAX))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG9 (MOVE 2. -6. P)
(MOVE 1. -5. P)
(CALL 2. (E *GREAT))
(JUMPN 1. TAG18)
(MOVE 3. -9. P)
(MOVE 2. -5. P)
(HLRZ@ 1. -11. P)
(CALL 3. (E LABEL1C))
(MOVEM 1. -3. P)
TAG10 (MOVE 1. -3. P)
(JUMPE 1. TAG16)
(HLRZ@ 1. 1.)
(MOVEM 1. -4. P)
(HRRZ@ 1. -11. P)
(MOVE 2. -5. P)
(PUSH P 1.)
(MOVE 1. -11. P)
(CALL 2. (E *DIF))
(PUSH P 1.)
(HRRZ@ 1. -6. P)
(HRRZ@ 3. 1.)
(POP P 2.)
(POP P 1.)
(CALL 3. (E LABEL1L))
(MOVEM 1. -1. P)
TAG11 (MOVE 1. -1. P)
(JUMPE 1. TAG14)
(HLRZ@ 1. 1.)
(HLRZ@ 2. 1.)
(MOVEM 1. -2. P)
(HLRZ@ 1. -4. P)
(CALL 2. (E COMBINE))
(PUSH P 1.)
(HRRZ@ 1. -3. P)
(PUSH P 1.)
(HRRZ@ 1. -6. P)
(HLRZ@ 2. 0. P)
(HLRZ@ 1. 1.)
(CALL 2. (E COMBINE))
(HRRZ@ 2. -4. P)
(HRRZ@ 2. 2.)
(CALL 2. (E CONS))
(MOVE 2. -1. P)
(CALL 2. (E XCONS))
(MOVE 2. -2. P)
(CALL 2. (E CONS))
(SUB P (C 0. 0. 2. 2.))
(MOVEM 1. 0. P)
TAG12
TAG13 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG11)
TAG14
TAG15 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG10)
TAG16
TAG17 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -5. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -5. P)
(JRST 0. TAG9)
TAG18 (MOVE 1. 0. P)
(SUB P (C 0. 0. 9. 9.))
TAG33
TAG19 (SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP COMB1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(PUSH P 5.)
(CAIE 5. (QUOTE 0.))
(JRST 0. TAG2)
(MOVE 2. 4.)
(MOVE 1. 3.)
(CALL 2. (E CONS))
(MOVE 2. -3. P)
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(JRST 0. TAG1)
TAG2 (CALL 1. (E LENGTH))
(MOVE 2. 5.)
(CALL 2. (E EQUAL))
(JUMPE 1. TAG3)
(MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 2. (E *APPEND))
(MOVE 2. -1. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 2. (E CONS))
(POP P 2.)
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(JRST 0. TAG1)
TAG3 (PUSH P (C 0. 0. TAG6 0.))
(MOVE 2. -4. P)
(HLRZ@ 1. -5. P)
(CALL 2. (E CONS))
(PUSH P 1.)
(HRRZ@ 1. -6. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 1. (E SUB1))
(MOVE 5. 1.)
(MOVE 4. -4. P)
(MOVE 3. -5. P)
(MOVE 2. -1. P)
(POP P 1.)
(CALL 5. (E COMB1))
(SUB P (C 0. 0. 1. 1.))
(PUSH P 1.)
(MOVE 2. -4. P)
(HLRZ@ 1. -6. P)
(CALL 2. (E CONS))
(MOVE 5. -2. P)
(MOVE 4. -3. P)
(MOVE 3. 1.)
(MOVE 2. -5. P)
(HRRZ@ 1. -6. P)
(CALL 5. (E COMB1))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC))
TAG6
TAG4
TAG1 (SUB P (C 0. 0. 5. 5.))
(POPJ P)
NIL
(LAP FIXUPGROUP SUBR)
(PUSH P 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 1. (E NODES))
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPN 1. TAG12)
(JRST 0. TAG4)
TAG12 (HLRZ@ 1. -2. P)
(MOVE 2. 1.)
(MOVEM 1. -1. P)
(MOVE 1. -3. P)
(CALL 2. (E DIFF))
(MOVEM 1. -3. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 0. 0. 3. 3.))
(MOVE 1. 0. P)
(MOVE 2. -2. P)
(CALL 2. (E CLASSIFYNODES))
(MOVE 2. 1.)
(EXCH 1. -2. P)
(CALL 2. (E FINDNEWGROUP))
(HRRM@ 1. -1. P)
(EXCH 1. -1. P)
(SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP FINDNEWGROUP SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(PUSH P 2.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 1.)
(MOVEM 1. 0. P)
(CALL 1. (E REVERSE))
(MOVE 2. -1. P)
(CALL 2. (E CONS))
(MOVEM 1. -1. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -1. P)
(SUB P (C 0. 0. 3. 3.))
(MOVEM 1. 0. P)
(MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 2. (E FINDNEWGROUP1))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG5 (MOVE 2. -2. P)
(JUMPN 2. TAG20)
(JRST 0. TAG8)
TAG20 (HLRZ@ 2. -2. P)
(MOVEM 2. -1. P)
(HRRZ@ 2. 2.)
(MOVE 1. -3. P)
(CALL 2. (E EQUAL))
(JUMPE 1. TAG22)
(JRST 0. TAG7)
TAG22 (MOVE 2. 0. P)
(HRRZ@ 1. -1. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG6
TAG7 (HRRZ@ 2. -2. P)
(MOVEM 2. -2. P)
(JRST 0. TAG5)
TAG8 (MOVE 2. 0. P)
(MOVE 1. -3. P)
(SUB P (C 0. 0. 6. 6.))
(JCALL 2. (E CONS))
NIL
(LAP FINDNEWGROUP1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 1.)
(MOVEM 1. 0. P)
(PUSH P (C 0. 0. TAG9 0.))
(PUSH P -3. P)
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS))
(HRRZ@ 2. -6. P)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(PUSH P 1.)
(MOVEI 1. (QUOTE NIL))
(CALL 2. (E CONS))
(MOVE 5. -7. P)
(MOVE 4. 1.)
(POP P 3.)
(MOVE 2. -5. P)
(HLRZ@ 1. 2.)
(CALL 5. (E FINDPERMS))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC))
TAG9 (MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 0. 0. 5. 5.))
(POPJ P)
NIL
(LAP FINDPERMS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(PUSH P 5.)
(JUMPN 2. TAG6)
(MOVE 1. 3.)
(CALL 1. (E NCONS))
(JRST 0. TAG5)
TAG6 (JUMPN 1. TAG7)
(MOVE 2. 3.)
(CALL 2. (E CONS))
(MOVE 2. 4.)
(PUSH P 1.)
(MOVEI 1. (QUOTE NIL))
(CALL 2. (E CONS))
(EXCH 4. 1.)
(POP P 3.)
(HRRZ@ 2. -3. P)
(HRRZ@ 1. -3. P)
(HLRZ@ 1. 1.)
(CALL 5. (E FINDPERMS))
(JRST 0. TAG5)
TAG7 (PUSH P (C 0. 0. (QUOTE NIL) 0.))
(MOVE 5. -1. P)
(MOVE 4. -2. P)
(MOVE 3. -3. P)
(HLRZ@ 2. -4. P)
(HLRZ@ 1. -5. P)
(CALL 5. (E POSSIMS))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 1.)
(MOVEM 1. 0. P)
(PUSH P (C 0. 0. TAG14 0.))
(PUSH P -3. P)
(HLRZ@ 2. -7. P)
(CALL 2. (E CONS))
(HRRZ@ 2. -7. P)
(CALL 2. (E CONS))
(HLRZ@ 2. -6. P)
(PUSH P 1.)
(HLRZ@ 1. -10. P)
(CALL 2. (E CONS))
(HRRZ@ 2. -7. P)
(CALL 2. (E CONS))
(MOVE 5. -6. P)
(MOVE 4. 1.)
(POP P 3.)
(MOVE 2. -8. P)
(HRRZ@ 1. -9. P)
(CALL 5. (E FINDPERMS))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC))
TAG14 (MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 0. 0. 3. 3.))
TAG8
TAG5 (SUB P (C 0. 0. 5. 5.))
(POPJ P)
NIL
(LAP POSSIMS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(PUSH P 5.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG13)
(HLRZ@ 1. 1.)
(MOVEM 1. -1. P)
(HLRZ@ 2. -5. P)
(CALL 2. (E MEMBER))
(JUMPN 1. TAG12)
(PUSH P (C 0. 0. (QUOTE T) 0.))
(PUSH P -5. P)
(PUSH P -7. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG2 (MOVE 1. -7. P)
(JUMPE 1. TAG10)
(HLRZ@ 1. 1.)
(MOVEM 1. -5. P)
(MOVE 1. -6. P)
(JUMPE 1. TAG10)
(HLRZ@ 1. 1.)
(MOVEM 1. -4. P)
(MOVE 1. -5. P)
(MOVEM 1. -2. P)
(MOVE 1. -4. P)
(MOVEM 1. 0. P)
TAG3 (MOVE 1. -2. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. 1.)
(MOVEM 1. -3. P)
(MOVE 1. 0. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. 1.)
(MOVEM 1. -1. P)
(MOVE 3. -12. P)
(MOVE 2. 1.)
(MOVE 1. -10. P)
(CALL 3. (E CONNECTIVITY))
(MOVE 3. -12. P)
(MOVE 2. -3. P)
(PUSH P 1.)
(MOVE 1. -17. P)
(CALL 3. (E CONNECTIVITY))
(POP P 2.)
(CALL 2. (E EQUAL))
(MOVEM 1. -8. P)
(JUMPE 1. TAG21)
TAG4
TAG5 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
TAG6 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG3)
TAG7
TAG8 (HRRZ@ 1. -6. P)
(MOVEM 1. -6. P)
TAG9 (HRRZ@ 1. -7. P)
(MOVEM 1. -7. P)
(JRST 0. TAG2)
TAG10 (MOVE 1. -8. P)
(JRST 0. TAG20)
TAG21 (MOVEI 1. (QUOTE NIL))
TAG20 (SUB P (C 0. 0. 9. 9.))
(JUMPE 1. TAG12)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG11
TAG12 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG13 (MOVE 1. 0. P)
(SUB P (C 0. 0. 8. 8.))
(POPJ P)
NIL
(LAP CONNECTIVITY SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(MOVE 2. 3.)
(CALL 2. (E FINDCTE))
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 1.)
(MOVEM 1. 0. P)
(MOVE 2. -4. P)
(CALL 2. (E EQUAL))
(JUMPE 1. TAG3)
(MOVE 2. -2. P)
(MOVEI 1. (QUOTE 1.))
(CALL 2. (E *PLUS))
(MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 0. 0. 6. 6.))
(POPJ P)
NIL
(LAP GROUPCOUNT SUBR)
(PUSH P 1.)
(CALL 1. (E CLCREATE))
(MOVE 2. 1.)
(MOVEI 1. (QUOTE CDR))
(CALL 2. (E GROUPBY))
(MOVEM 1. 0. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE -99999.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 1.)
(MOVE 2. -2. P)
(MOVEM 1. 0. P)
(HLRZ@ 1. 1.)
(CALL 2. (E MAX))
(MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 0. 0. 3. 3.))
(MOVEM 1. -1. P)
TAG5 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *LESS))
(JUMPN 1. TAG8)
(MOVEI 3. (QUOTE NIL))
(MOVE 2. -2. P)
(MOVE 1. -1. P)
(CALL 3. (E LMASSOC))
(CALL 1. (E CARLIST))
(MOVE 2. 0. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG6
TAG7 (MOVEI 2. (QUOTE -1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -1. P)
(JRST 0. TAG5)
TAG8 (MOVE 1. 0. P)
(SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP FOUND? SUBR)
(PUSH P 1.)
(PUSH P 2.)
(HLRZ@ 1. 2.)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 1.)
(MOVEM 1. -1. P)
(MOVEI 2. (QUOTE 9999999.))
(MOVE 1. -3. P)
(CALL 2. (E *GREAT))
(JUMPN 1. TAG5)
(MOVE 2. -1. P)
(MOVE 1. -5. P)
(CALL 2. (E MEMBER))
(JUMPE 1. TAG12)
(MOVE 2. -1. P)
(MOVE 1. -3. P)
(CALL 2. (E CONS))
(JRST 0. TAG6)
TAG12
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -3. P)
TAG4 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG5 (MOVE 1. 0. P)
TAG6 (SUB P (C 0. 0. 6. 6.))
(POPJ P)
NIL
(LAP FINDGROUPEDGES SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE T) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 1.)
(MOVEM 1. 0. P)
(HRRZ@ 1. -4. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 2. 1.)
(HLRZ@ 1. 0. P)
(CALL 2. (E FOUND?))
(JUMPE 1. TAG24)
(HRRZ@ 1. -4. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 2. 1.)
(HRRZ@ 1. 0. P)
(CALL 2. (E FOUND?))
(JUMPN 1. TAG23)
TAG24 (TDZA 1. 1.)
TAG23 (MOVEI 1. (QUOTE T))
(MOVEM 1. -2. P)
(JUMPE 1. TAG19)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(JRST 0. TAG18)
TAG19 (MOVEI 1. (QUOTE NIL))
TAG18 (SUB P (C 0. 0. 3. 3.))
(JUMPN 1. TAG17)
(MOVE 1. -1. P)
(CALL 1. (E FIXUPGROUP))
(JRST 0. TAG16)
TAG17
TAG25
TAG16 (HRRZ@ 1. -1. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(MOVEM 1. 0. P)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG5 (MOVE 1. -2. P)
(JUMPE 1. TAG12)
(HLRZ@ 1. 1.)
(MOVEM 1. -1. P)
(PUSH P -5. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG6 (MOVE 1. -2. P)
(JUMPN 1. TAG35)
(JRST 0. TAG9)
TAG35 (HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG36 0.))
(PUSH P -1. P)
(MOVE 3. -6. P)
(HLRZ@ 2. -8. P)
(HLRZ@ 1. 1.)
(CALL 3. (E IMAGE))
(MOVE 3. -6. P)
(HLRZ@ 2. -8. P)
(PUSH P 1.)
(HRRZ@ 1. -4. P)
(CALL 3. (E IMAGE))
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E ORDPAIR))
(CALL 1. (E NCONS))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC))
TAG36 (MOVEM 1. 0. P)
TAG7
TAG8 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG6)
TAG9 (MOVE 1. 0. P)
(MOVE 2. -4. P)
(CALL 2. (E CONS))
(MOVE 2. -8. P)
(CALL 2. (E XCONS))
(MOVE 2. -3. P)
(CALL 2. (E CONS))
(SUB P (C 0. 0. 3. 3.))
(MOVEM 1. 0. P)
TAG10
TAG11 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG5)
TAG12 (MOVE 1. 0. P)
(MOVEM 1. -2. P)
(HLRZ@ 1. -3. P)
(CALL 1. (E NCONS))
(MOVE 2. -2. P)
(SUB P (C 0. 0. 6. 6.))
(JCALL 2. (E XCONS))
NIL
(LAP IMAGE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 3.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -7. P)
(JUMPE 1. TAG9)
(HLRZ@ 1. 1.)
(MOVEM 1. -6. P)
(MOVE 1. -8. P)
(JUMPE 1. TAG9)
(HLRZ@ 1. 1.)
(MOVEM 1. -5. P)
(MOVE 1. -6. P)
(MOVEM 1. -3. P)
(MOVE 1. -5. P)
(MOVEM 1. -1. P)
TAG2 (MOVE 1. -3. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. 1.)
(MOVEM 1. -4. P)
(MOVE 1. -1. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. 1.)
(MOVEM 1. -2. P)
(MOVE 2. -4. P)
(MOVE 1. -11. P)
(CALL 2. (E EQUAL))
(JUMPE 1. TAG4)
(MOVE 1. -2. P)
(JRST 0. TAG10)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
TAG5 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG2)
TAG6
TAG7 (HRRZ@ 1. -8. P)
(MOVEM 1. -8. P)
TAG8 (HRRZ@ 1. -7. P)
(MOVEM 1. -7. P)
(JRST 0. TAG1)
TAG9 (MOVE 1. 0. P)
TAG10 (SUB P (C 0. 0. 12. 12.))
(POPJ P)
NIL
(LAP FINDGROUPNODES SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (HRRZ@ 1. -1. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 2. 1.)
(HLRZ@ 1. -2. P)
(CALL 2. (E FOUND?))
(MOVEM 1. 0. P)
(JUMPN 1. TAG10)
(MOVE 1. -1. P)
(CALL 1. (E FIXUPGROUP))
(JRST 0. TAG9)
TAG10 (HRRZ@ 1. -1. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG2 (MOVE 1. -2. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 1.)
(MOVEM 1. -1. P)
(HRRZ@ 1. -3. P)
(HLRZ@ 2. -3. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 2. (E NTH))
(MOVE 2. -2. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS))
(POP P 2.)
(CALL 2. (E XCONS))
(MOVE 2. 0. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG2)
TAG5 (MOVE 1. 0. P)
(MOVEM 1. -2. P)
(HRRZ@ 1. -4. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(CALL 1. (E NCONS))
(MOVE 2. -2. P)
(CALL 2. (E XCONS))
(SUB P (C 0. 0. 3. 3.))
(JRST 0. TAG6)
TAG11
TAG9 (JRST 0. TAG1)
TAG6 (SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP SIZE SUBR)
(PUSH P 1.)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE MULT))
(JRST 0. TAG2)
(HRRZ@ 1. 0. P)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(CALL 1. (E SIZE))
(POP P 2.)
(CALL 2. (E *TIMES))
(SUB P (C 0. 0. 1. 1.))
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 0. P)
(CAIE 1. (QUOTE BOTH))
(JRST 0. TAG3)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(CALL 1. (E SIZE))
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(HRRZ@ 1. 1.)
(CALL 1. (E SIZE))
(POP P 2.)
(CALL 2. (E *PLUS))
(JRST 0. TAG1)
TAG3 (HLRZ@ 1. 0. P)
(CAIN 1. (QUOTE NODES))
(JRST 0. TAG5)
(HLRZ@ 1. 0. P)
(CAIN 1. (QUOTE EDGES))
(JRST 0. TAG5)
(HLRZ@ 1. 0. P)
(CAIE 1. (QUOTE ?))
(JRST 0. TAG4)
TAG5 (HRRZ@ 1. 0. P)
(CALL 1. (E LENGTH))
(JRST 0. TAG1)
TAG4 (MOVEI 2. (QUOTE (BAD ARG TO SIZE)))
(MOVE 1. 0. P)
(CALL 2. (E CONS))
(MOVEI 2. (QUOTE 0.))
(CALL 2. (E PRINT))
TAG6
TAG1 (SUB P (C 0. 0. 1. 1.))
(POPJ P)
NIL
(COMMENT MISC COMPUTATION FUNCTIONS)
(LAP TD SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 1. TAG2)
(MOVEI 1. (QUOTE 0.))
(JRST 0. TAG1)
TAG2 (HLRZ@ 2. -1. P)
(MOVE 1. 0. P)
(CALL 2. (E *TIMES))
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 1. (E ADD1))
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E TD))
(POP P 2.)
(CALL 2. (E *PLUS))
TAG3
TAG1 (SUB P (C 0. 0. 2. 2.))
(POPJ P)
NIL
(LAP M22 SUBR)
(MOVEI 2. (QUOTE 2.))
(CALL 2. (E *QUO))
(JCALL 1. (E SUB1))
NIL
(LAP MAXREST SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(HRRZ@ 1. 1.)
(PUSH P 1.)
(MOVE 1. 2.)
(CALL 1. (E ADD1))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 1.)
(MOVEM 1. 0. P)
(MOVEI 2. (QUOTE 9999999.))
(MOVE 1. -1. P)
(CALL 2. (E *GREAT))
(JUMPN 1. TAG5)
(MOVE 1. -1. P)
(CALL 1. (E M22))
(MOVE 2. 0. P)
(CALL 2. (E *TIMES))
(MOVE 2. -3. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -3. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -1. P)
TAG4 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG5 (MOVE 1. -3. P)
(SUB P (C 0. 0. 6. 6.))
(POPJ P)
NIL
(COMMENT FUNCTIONS FOR LOOPS)
(LAP LOOPPARTITIONS1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 2. TAG13)
(MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS))
(JRST 0. TAG12)
TAG13 (MOVE 1. 0. P)
(CALL 1. (E M22))
(HLRZ@ 2. -1. P)
(CALL 2. (E *TIMES))
(MOVE 2. 1.)
(MOVE 1. -2. P)
(CALL 2. (E MIN))
(MOVE 2. 0. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 2. (E MAXREST))
(MOVE 2. 1.)
(MOVE 1. -3. P)
(CALL 2. (E *DIF))
(MOVE 2. 1.)
(MOVEI 1. (QUOTE 0.))
(CALL 2. (E MAX))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -7. P)
(MOVE 1. -6. P)
(CALL 2. (E *GREAT))
(JUMPN 1. TAG11)
(MOVE 2. -6. P)
(MOVE 1. -10. P)
(CALL 2. (E *DIF))
(PUSH P 1.)
(HRRZ@ 1. -10. P)
(PUSH P 1.)
(MOVE 1. -10. P)
(CALL 1. (E ADD1))
(MOVE 3. 1.)
(POP P 2.)
(POP P 1.)
(CALL 3. (E LOOPPARTITIONS1))
(MOVEM 1. -5. P)
(HLRZ@ 1. -9. P)
(PUSH P 1.)
(MOVE 1. -9. P)
(CALL 1. (E M22))
(MOVE 3. 1.)
(POP P 2.)
(MOVE 1. -6. P)
(CALL 3. (E FVPART1))
(MOVEM 1. -3. P)
TAG2 (MOVE 1. -3. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. 1.)
(MOVEM 1. -4. P)
(MOVE 1. -5. P)
(MOVEM 1. -1. P)
TAG3 (MOVE 1. -1. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. 1.)
(MOVE 2. -4. P)
(MOVEM 1. -2. P)
(CALL 2. (E XCONS))
(MOVE 2. 0. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG4
TAG5 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG3)
TAG6
TAG7 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG2)
TAG8
TAG9
TAG10 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -6. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -6. P)
(JRST 0. TAG1)
TAG11 (MOVE 1. 0. P)
(SUB P (C 0. 0. 8. 8.))
TAG14
TAG12 (SUB P (C 0. 0. 3. 3.))
(POPJ P)
NIL
(LAP JLIST SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPE 1. TAG1)
(HRRZ@ 1. 1.)
(JUMPN 1. TAG2)
(HLRZ@ 1. -1. P)
(CALL 2. (E NTH))
(HLRZ@ 1. 1.)
(CALL 1. (E NCONS))
(JRST 0. TAG1)
TAG2 (MOVE 2. 0. P)
(HLRZ@ 1. -1. P)
(CALL 2. (E NTH))
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(HLRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(MOVE 1. -2. P)
(CALL 1. (E ADD1))
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E JLIST))
(POP P 2.)
(CALL 2. (E XCONS))
TAG3
TAG1 (SUB P (C 0. 0. 2. 2.))
(POPJ P)
NIL
(LAP LPROWS SUBR)
(PUSH P 2.)
(MOVEI 2. (QUOTE NIL))
(PUSH P 1.)
(CALL 2. (E XCONS))
(MOVEM 1. 0. P)
(PUSH P (C 0. 0. (QUOTE 4.) 0.))
(HLRZ@ 1. -2. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(HRRZ@ 2. -6. P)
(PUSH P -5. P)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -3. P)
(JUMPN 2. TAG19)
(JRST 0. TAG5)
TAG19 (HLRZ@ 2. -3. P)
(MOVEM 2. -2. P)
(MOVE 2. -4. P)
(JUMPN 2. TAG21)
(JRST 0. TAG5)
TAG21 (HLRZ@ 2. -4. P)
(MOVEM 2. -1. P)
(PUSH P (C 0. 0. TAG22 0.))
(PUSH P -1. P)
(MOVE 1. 2.)
(CALL 1. (E PLUSLIST))
(MOVE 2. 1.)
(MOVE 1. -4. P)
(CALL 2. (E *DIF))
(CALL 1. (E NCONS))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC))
TAG22 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 2. -4. P)
(MOVEM 2. -4. P)
TAG4 (HRRZ@ 2. -3. P)
(MOVEM 2. -3. P)
(JRST 0. TAG1)
TAG5 (MOVE 2. 0. P)
(MOVE 1. -5. P)
(CALL 2. (E CONS))
(SUB P (C 0. 0. 6. 6.))
(MOVEM 1. -1. P)
TAG6 (MOVEI 2. (QUOTE 999999.))
(MOVE 1. -3. P)
(CALL 2. (E *GREAT))
(JUMPN 1. TAG11)
(MOVE 1. -1. P)
(JUMPE 1. TAG11)
(HLRZ@ 1. 1.)
(MOVEM 1. -2. P)
(MOVE 1. -4. P)
(JUMPE 1. TAG26)
(HRRZ@ 1. 1.)
(JRST 0. TAG25)
TAG26 (MOVEI 1. (QUOTE NIL))
TAG27
TAG25 (MOVEM 1. -4. P)
(PUSH P (C 0. 0. TAG29 0.))
(PUSH P -1. P)
(MOVE 1. -5. P)
(CALL 1. (E M22))
(MOVE 2. 1.)
(MOVE 1. -6. P)
(CALL 2. (E JLIST))
(MOVE 2. -4. P)
(CALL 2. (E XCONS))
(CALL 1. (E NCONS))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC))
TAG29 (MOVEM 1. 0. P)
TAG7
TAG8
TAG9 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
TAG10 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -3. P)
(JRST 0. TAG6)
TAG11 (MOVE 1. 0. P)
(SUB P (C 0. 0. 6. 6.))
(POPJ P)
NIL
(LAP LOOPPARTITIONS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 3. (QUOTE 4.))
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(CALL 3. (E LOOPPARTITIONS1))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -12. P)
(JUMPE 1. TAG18)
(HLRZ@ 1. 1.)
(MOVE 2. -13. P)
(MOVEM 1. -11. P)
(CALL 2. (E LPROWS))
(MOVEI 2. (QUOTE 3.))
(MOVEM 1. -10. P)
(HRRZ@ 1. -13. P)
(CALL 2. (E TD))
(MOVEM 1. -8. P)
(MOVEI 1. (QUOTE 0.))
(MOVEM 1. -9. P)
TAG2 (MOVE 2. -8. P)
(MOVE 1. -9. P)
(CALL 2. (E *GREAT))
(JUMPN 1. TAG15)
(HLRZ@ 1. -13. P)
(MOVE 2. -9. P)
(PUSH P 1.)
(MOVE 1. -15. P)
(CALL 2. (E *PLUS))
(MOVEI 4. (QUOTE 999999.))
(MOVEI 3. (QUOTE 1.))
(MOVE 2. 1.)
(POP P 1.)
(CALL 4. (E NUMPARTITIONS))
(MOVEM 1. -6. P)
TAG3 (MOVE 1. -6. P)
(JUMPE 1. TAG13)
(HLRZ@ 1. 1.)
(MOVEM 1. -7. P)
(CALL 1. (E CLCREATE))
(MOVE 2. -9. P)
(MOVEM 1. -5. P)
(CALL 2. (E CLPARTS))
(MOVEM 1. -3. P)
TAG4 (MOVE 1. -3. P)
(JUMPE 1. TAG10)
(HLRZ@ 1. 1.)
(MOVE 2. 1.)
(MOVEM 1. -4. P)
(MOVE 1. -5. P)
(CALL 2. (E CLDIFF))
(PUSH P 1.)
(MOVE 1. -11. P)
(CALL 1. (E CDRLIST))
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CLPARTITIONSL))
(MOVEM 1. -1. P)
TAG5 (MOVE 1. -1. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. 1.)
(MOVEM 1. -2. P)
(HLRZ@ 1. -10. P)
(HRRZ@ 1. 1.)
(CALL 1. (E PLUSLIST))
(HRRZ@ 2. -10. P)
(PUSH P 1.)
(MOVEI 1. (QUOTE PLUSLIST))
(CALL 2. (E MAPCAR))
(POP P 2.)
(CALL 2. (E XCONS))
(MOVE 2. -2. P)
(PUSH P 1.)
(MOVE 1. -5. P)
(CALL 2. (E CONS))
(POP P 2.)
(CALL 2. (E XCONS))
(MOVE 2. 0. P)
(CALL 2. (E CONS))
(MOVEM 1. 0. P)
TAG6
TAG7 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG5)
TAG8
TAG9 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG4)
TAG10
TAG11
TAG12 (HRRZ@ 1. -6. P)
(MOVEM 1. -6. P)
(JRST 0. TAG3)
TAG13
TAG14 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -9. P)
(CALL 2. (E *PLUS))
(MOVEM 1. -9. P)
(JRST 0. TAG2)
TAG15
TAG16
TAG17 (HRRZ@ 1. -12. P)
(MOVEM 1. -12. P)
(JRST 0. TAG1)
TAG18 (MOVE 1. 0. P)
(SUB P (C 0. 0. 15. 15.))
(POPJ P)
NIL